home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / bkoffice / inetsrv.nts / nt351qfe.usa / alpha / pscript.dll / 259 / 3 < prev   
Text File  |  1995-10-07  |  7KB  |  103 lines
  1.  
  2. %%BeginResource: file Adobe_WinNT_BW_Images 2.0 0
  3. /iw 0 def/ih 0 def/im_save 0 def/setupimageproc 0 def/polarity 0 def/smoothflag
  4. 0 def/mystring 0 def/bpc 0 def/setup1asciiproc{[ currentfile mystring/readhexstring
  5. cvx/pop cvx ] cvx bind}b/setup1binaryproc{[ currentfile mystring/readstring
  6. cvx/pop cvx ] cvx bind}b/setup2asciiproc{currentfile/ASCII85Decode
  7. filter/RunLengthDecode filter}b/setup2binaryproc{currentfile/RunLengthDecode
  8. filter}b/mycolorspace{colspABC}def/myimagedict{/myimagedict 10 dict
  9. def myimagedict dup begin/ImageType 1 def/MultipleDataSource false
  10. def end}b/imageprocarray [/setup1binaryproc/setup1asciiproc/setup2binaryproc/setup2asciiproc
  11. ] def/L2Polarity{{[ 1 0 ]}{[ 0 1 ]}ifelse}b/beginimage{/im_save save
  12. def imageprocarray exch get/setupimageproc exch load def L2Polarity/polarity
  13. exch def/smoothflag exch def translate/dx 2 index def/dy 1 index abs
  14. def scale/mystring exch string def/bpc exch def/ih exch def/iw exch
  15. def}b/endimage{im_save restore}b/1bitmaskimage{sgco myimagedict dup
  16. begin/Width iw def/Height ih def/Decode polarity def/ImageMatrix [iw
  17. 0 0 ih 0 0] def/DataSource setupimageproc def/BitsPerComponent 1 def/Interpolate
  18. smoothflag def end imagemask}b/1bitcopyimage{sgco 0 0 1 dx div 1 dy
  19. div 1 2 index sub 1 2 index sub L2?{4}{6}ifelse -2 roll pop pop rf
  20. 1bitmaskimage}b/1bitbwcopyimage{0 true 1 true 1bitcopyimage}b
  21. %%EndResource
  22.  
  23. %%BeginResource: file Adobe_WinNT_BW_Images_L1 2.0 0
  24.  L2? not
  25. DefIf_B{/setup2asciiproc{[/Level2ImagesError load aload pop true FatalErrorIf}b/setup2binaryproc/setup2asciiproc
  26. load def/L2Polarity{}def/1bitmaskimage{sgco iw ih polarity [iw 0 0
  27. ih 0 0] setupimageproc imagemask}b}DefIf_E
  28. %%EndResource
  29.  
  30. %%BeginResource: file Adobe_WinNT_Co_Images_L1 2.0 0
  31.  L2? not DefIf_B{/testsystemdict{where{systemdict
  32. eq{true}{false}ifelse}{false}ifelse}b/ncolors 1 def/colorimage where{pop
  33. true}{false}ifelse{/ncolors 0 statusdict begin/processcolors where{pop
  34. pop processcolors}{/deviceinfo where{pop deviceinfo/Colors known{pop{deviceinfo/Colors
  35. get}}if}if}ifelse end def ncolors 0 ne{/colorimage testsystemdict/setcolortransfer
  36. testsystemdict/currentcolortransfer testsystemdict/currentcmykcolor
  37. testsystemdict and and and not{/ncolors 0 def}if}if}if ncolors dup
  38. 1 ne exch dup 3 ne exch 4 ne and and{/ncolors 0 def}if ncolors 1 eq
  39. DefIf_B{/expandbw{expandfactor mul round cvi bwclut exch get 255 div}b/doclutimage{pop/bwclut
  40. exch def/expandfactor 1 bpc{2 mul}repeat 1 sub def [/expandbw load/exec
  41. load dup currenttransfer exch ] cvx bind settransfer iw ih bpc [iw
  42. 0 0 ih 0 0] setupimageproc image}b}DefIf_E ncolors dup 3 eq exch 4
  43. eq or DefIf_B{/nullproc{{}}def/concatutil{/exec load 7 -1 roll/exec
  44. load}b/defsubclut{1 add getinterval def}b/spconcattransfer{/Dclut exch
  45. def/Cclut exch def/Bclut exch def/Aclut exch def/ncompute exch load
  46. def currentcolortransfer [{Aclut ncompute}concatutil ] cvx [{Bclut
  47. ncompute}concatutil ] cvx [{Cclut ncompute}concatutil ] cvx [{Dclut
  48. ncompute}concatutil ] cvx setcolortransfer}b/setuprgbcluts{/bit3x rgbclut
  49. length 3 sub def/bit1x bit3x 3 idiv def/rclut rgbclut def/gclut rclut
  50. 1 bit3x defsubclut/bclut rclut 2 bit3x defsubclut}b}DefIf_E ncolors
  51. 3 eq DefIf_B{/3compute{exch bit3x mul round cvi get 255 div}b/doclutimage{/rgbclut
  52. exch def pop setuprgbcluts/3compute rclut gclut bclut dup spconcattransfer
  53. iw ih bpc [iw 0 0 ih 0 0] [ setupimageproc/exec load/dup load dup ]
  54. cvx nullproc nullproc true 3 colorimage}b}DefIf_E ncolors 4 eq DefIf_B{/ftoint{1
  55. exch sub 255 mul round cvi}b/stuffclut{cmykindex 3 -1 roll put}b/4compute{exch
  56. bit4x mul round cvi get 255 div}b/invalidcolortable? true def/computecmykclut{setuprgbcluts/bit4x
  57. rgbclut length 3 idiv 4 mul 4 sub def/cmykclut bit4x 4 add string def/cclut
  58. cmykclut def/mclut cclut 1 bit4x defsubclut/yclut cclut 2 bit4x defsubclut/kclut
  59. cclut 3 bit4x defsubclut/cmykindex 0 def 0 1 bit1x{dup/cmykindex exch
  60. bit1x exch sub 4 mul def 3 mul dup rclut exch get 255 div exch dup
  61. gclut exch get 255 div exch bclut exch get 255 div setrgbcolor currentcmykcolor
  62. ftoint kclut stuffclut ftoint yclut stuffclut ftoint mclut stuffclut
  63. ftoint cclut stuffclut}for}b/doclutimage{/rgbclut exch def pop invalidcolortable?{computecmykclut}if/4compute
  64. cclut mclut yclut kclut spconcattransfer iw ih bpc [iw 0 0 ih 0 0]
  65. [ setupimageproc/exec load/dup load dup dup ] cvx nullproc nullproc
  66. nullproc true 4 colorimage}b}DefIf_E ncolors 0 eq DefIf_B{/lookupandstore{3
  67. mul 3 getinterval putinterval exch 3 add exch 3 copy}b/8lookup/lookupandstore
  68. load def/4lookup{/byte 1 index def -4 bitshift lookupandstore byte
  69. 15 and lookupandstore}b/2lookup{/byte 1 index def -6 bitshift lookupandstore
  70. byte -4 bitshift 3 and lookupandstore byte -2 bitshift 3 and lookupandstore
  71. byte 3 and lookupandstore}b/1lookup{-7 1 0{2 index exch bitshift 1
  72. and lookupandstore}bind for pop}b/colorexpand{mystringexp 0 rgbclut
  73. 3 copy 7 -1 roll/mylookup load forall pop pop pop pop pop}b/createexpandstr{/mystringexp
  74. exch mystring length mul string def}b/doclutimage{/rgbclut exch def
  75. pop/mylookup bpc 8 eq{3 createexpandstr/8lookup}{bpc 4 eq{6 createexpandstr/4lookup}{bpc
  76. 2 eq{12 createexpandstr/2lookup}{24 createexpandstr/1lookup}ifelse}ifelse}ifelse
  77. load def iw ih bpc [iw 0 0 ih 0 0] [ setupimageproc/exec load/colorexpand
  78. load/exec load] cvx false 3 colorimage}b}DefIf_E/colorimage where{pop
  79. true}{false}ifelse DefIf_B{/do24image{iw ih 8 [iw 0 0 ih 0 0] setupimageproc
  80. false 3 colorimage}b}DefIf_El{/rgbtogray{/str exch def/len str length
  81. def/smlen len 3 idiv def/rstr str def/gstr str 1 len 1 sub getinterval
  82. def/bstr str 2 len 2 sub getinterval def str dup 0 1 smlen 1 sub{dup
  83. 3 mul rstr 1 index get .3 mul gstr 2 index get .59 mul add bstr 3 -1
  84. roll get .11 mul add round cvi put dup}for pop 0 smlen getinterval}b/do24image{iw
  85. ih 8 [iw 0 0 ih 0 0] [ setupimageproc/exec load/rgbtogray load/exec
  86. load ] cvx bind image}b}DefIf_E/doNimage{bpc 24 eq{do24image}{iw ih
  87. bpc [iw 0 0 ih 0 0] setupimageproc image}ifelse}b}DefIf_E
  88. %%EndResource
  89.  
  90. %%BeginResource: file Adobe_WinNT_Co_Images_L2 2.0 0
  91.  L2? DefIf_B{/doclutimage{/rgbclut
  92. exch def pop/hival 1 bpc{2 mul}repeat 1 sub def [/Indexed colspABC
  93. hival rgbclut] setcolorspace myimagedict dup begin/Width iw def/Height
  94. ih def/Decode [0 hival] def/ImageMatrix [iw 0 0 ih 0 0] def/DataSource
  95. setupimageproc def/BitsPerComponent bpc def/Interpolate smoothflag
  96. def end image}b/doNimage{bpc 24 eq{colspABC}{colspA}ifelse setcolorspace
  97. myimagedict dup begin/Width iw def/Height ih def/Decode bpc 24 eq{[0
  98. 1 0 1 0 1]}{[0 1]}ifelse def/ImageMatrix [iw 0 0 ih 0 0] def/DataSource
  99. setupimageproc def/BitsPerComponent bpc 24 eq{8}{bpc}ifelse def/Interpolate
  100. smoothflag def end image}b}DefIf_E
  101. %%EndResource
  102.  
  103.